object Kyodai: TKyodai Left = 96 Top = 36 BorderStyle = bsSingle Caption = 'KYODAI 2.88' ClientHeight = 472 ClientWidth = 628 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MainMenu1 OnCloseQuery = FormCloseQuery OnCreate = Init OnMouseMove = FormMouseMove OnMouseUp = ButtonDown OnPaint = Peindre OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object Dragons: TImage Left = 0 Top = 40 Width = 713 Height = 428 Picture.Data = {} Visible = False end object Buffer: TImage Left = 128 Top = 41 Width = 800 Height = 600 Visible = False end object Kanji: TImage Left = 376 Top = 424 Width = 33 Height = 25 Enabled = False Picture.Data = {} Visible = False end object MaskedTiles: TImage Left = 8 Top = 208 Width = 360 Height = 250 Enabled = False Visible = False end object Logo: TImage Left = 184 Top = 184 Width = 253 Height = 128 AutoSize = True Picture.Data = {} Visible = False end object Mask: TImage Left = 8 Top = 56 Width = 360 Height = 250 AutoSize = True Picture.Data = {} Visible = False end object TileGfx: TImage Left = 16 Top = 48 Width = 360 Height = 306 AutoSize = True Picture.Data = {} Visible = False end object SmallBuf: TImage Left = 512 Top = 80 Width = 46 Height = 56 Visible = False end object Panel1: TPanel Left = 0 Top = 0 Width = 628 Height = 41 Align = alTop BevelWidth = 4 TabOrder = 1 object SpeedButton1: TSpeedButton Left = 8 Top = 8 Width = 33 Height = 25 Hint = ' New game ' AllowAllUp = True Font.Color = clBlack Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [] Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333000003333333333F777773FF333333008877700 33333337733FFF773F33330887000777033333733F777FFF73F330880FAFAF07 703337F37733377FF7F33080F00000F07033373733777337F73F087F00A2200F 77037F3737333737FF7F080A0A2A220A07037F737F3333737F7F0F0F0AAAA20F 07037F737F3333737F7F0F0A0FAA2A0A08037F737FF33373737F0F7F00FFA00F 780373F737FFF737F3733080F00000F0803337F73377733737F330F80FAFAF08 8033373F773337733733330F8700078803333373FF77733F733333300FFF8800 3333333773FFFF773333333330000033333333333777773333330000} NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = ResetGame end object SpeedButton2: TSpeedButton Left = 216 Top = 8 Width = 49 Height = 25 Caption = 'Pause' Font.Color = clBlack Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False OnClick = PauseClick end object SpeedButton3: TSpeedButton Left = 48 Top = 8 Width = 49 Height = 25 Caption = 'Back' Font.Color = clBlack Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False OnClick = Back end object SpeedButton4: TSpeedButton Left = 96 Top = 8 Width = 49 Height = 25 Caption = 'Hint' Font.Color = clBlack Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False OnClick = Hint end object ExitButton: TSpeedButton Left = 568 Top = 8 Width = 49 Height = 25 Caption = 'Exit' Font.Color = clBlack Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False OnClick = Exit1Click end object AboutButton: TSpeedButton Left = 512 Top = 8 Width = 49 Height = 25 Caption = 'About' Font.Color = clBlack Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False OnClick = About1Click end object ShuffleButton: TSpeedButton Left = 152 Top = 8 Width = 57 Height = 25 Caption = 'Shuffle' Enabled = False Font.Color = clBlack Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False OnClick = Shuffle1Click end object HelpButton: TSpeedButton Left = 456 Top = 8 Width = 49 Height = 25 Caption = 'Help' Font.Color = clBlack Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False OnClick = HelpClick end object PlayerPanel: TPanel Left = 272 Top = 8 Width = 73 Height = 25 Font.Color = clBlack Font.Height = -12 Font.Name = 'Courier New' Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnMouseUp = SwitchPanels end object PInput: TComboBox Left = 352 Top = 8 Width = 265 Height = 25 Font.Color = clBlack Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [] ItemHeight = 17 MaxLength = 80 ParentFont = False TabOrder = 1 Text = '(Enter your message here)' Visible = False OnKeyUp = PInputKeyUp end end object LigneStatus: TStatusBar Left = 0 Top = 447 Width = 628 Height = 25 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] Panels = < item Alignment = taCenter Bevel = pbNone Text = 'Tiles left' Width = 70 end item Alignment = taCenter Width = 45 end item Alignment = taCenter Bevel = pbNone Text = 'Moves left' Width = 80 end item Alignment = taCenter Width = 35 end item Alignment = taCenter Bevel = pbNone Text = 'Time' Width = 50 end item Alignment = taCenter Width = 50 end item Alignment = taCenter Bevel = pbNone Text = 'Status' Width = 55 end item Width = 50 end> ParentFont = False SimplePanel = False SizeGrip = False end object MainMenu1: TMainMenu Left = 560 Top = 424 object File1: TMenuItem Caption = '&File' ShortCut = 0 object New1: TMenuItem Caption = '&New' ShortCut = 16462 OnClick = ResetGame end object Exit1: TMenuItem Caption = 'E&xit' ShortCut = 16451 OnClick = Exit1Click end end object Play1: TMenuItem Caption = '&Play' ShortCut = 0 object Undo1: TMenuItem Caption = '&Back' ShortCut = 16474 OnClick = Back end object GiveHint: TMenuItem Caption = 'Hint' ShortCut = 16456 OnClick = Hint end object N5: TMenuItem Caption = '-' ShortCut = 0 end object Shuffle1: TMenuItem Caption = 'Shuffle' ShortCut = 16467 OnClick = Shuffle1Click end object Restart1: TMenuItem Caption = 'Restart' ShortCut = 16466 OnClick = Restart end object Stoppe: TMenuItem Caption = '&Stop' ShortCut = 16472 OnClick = Stop end object Pause1: TMenuItem Caption = '&Pause' ShortCut = 16464 OnClick = PauseClick end end object Options1: TMenuItem Caption = 'Options' ShortCut = 0 object Config: TMenuItem Caption = '&Configuration' ShortCut = 0 object WarnMe: TMenuItem Caption = 'Never warn about switches' ShortCut = 0 OnClick = WarnMeClick end object StartupGame: TMenuItem Caption = 'Begin game at startup' ShortCut = 0 OnClick = StartupGameClick end end object Changeplayername1: TMenuItem Caption = 'Player name' ShortCut = 0 OnClick = ConfigClick end object Moves: TMenuItem Caption = 'Show &Moves' Checked = True ShortCut = 16461 OnClick = NStatus end object Toolbar1: TMenuItem Caption = 'Show &Toolbar' Checked = True ShortCut = 16468 OnClick = Toolbar1Click end object HightlightMode1: TMenuItem Caption = '&Highlight' ShortCut = 0 object Highlight1: TMenuItem Caption = 'None' ShortCut = 0 OnClick = Highlight1Click end object Highlight2: TMenuItem Caption = 'Rectangle' ShortCut = 0 OnClick = Highlight2Click end object Highlight3: TMenuItem Caption = 'Color' ShortCut = 0 OnClick = Highlight3Click end end end object Background1: TMenuItem Caption = '&Background' ShortCut = 0 object Kanji1: TMenuItem Caption = '&Kanji (classic)' ShortCut = 0 OnClick = Kanji1Click end object Dragons1: TMenuItem Caption = '&Dragons' Checked = True ShortCut = 0 OnClick = Dragons1Click end end object Layout1: TMenuItem Caption = '&Layout' ShortCut = 0 object Theater1: TMenuItem Caption = 'Theater (Very easy)' ShortCut = 0 OnClick = SelectTheater end object Traditional1: TMenuItem Caption = 'Traditional (Normal)' Checked = True ShortCut = 0 OnClick = SelectTraditional end object Dragon1: TMenuItem Caption = 'Dragon (Hard)' Enabled = False ShortCut = 0 OnClick = SelectDragon end object BigHole1: TMenuItem Caption = 'Big Hole (Very hard)' ShortCut = 0 OnClick = SelectBlock end object Beatle1: TMenuItem Caption = 'Beatle (Nightmare !)' ShortCut = 0 OnClick = SelectBeatle end end object Tiles1: TMenuItem Caption = '&Tiles' ShortCut = 0 object Wood1: TMenuItem Caption = 'Wood' Checked = True ShortCut = 0 OnClick = TilesWood end object Blue1: TMenuItem Caption = 'Blue' ShortCut = 0 OnClick = TilesBlue end object Red1: TMenuItem Caption = 'Red' ShortCut = 0 OnClick = TilesRed end end object Help1: TMenuItem Caption = '&Help' ShortCut = 0 object Contents1: TMenuItem Caption = '&Contents' ShortCut = 112 OnClick = HelpClick end object Register1: TMenuItem Caption = 'Register' ShortCut = 0 OnClick = Register1Click end object About1: TMenuItem Caption = '&About...' ShortCut = 16449 OnClick = About1Click end end end object OnlyOne1: TOnlyOne Left = 592 Top = 392 end object Timer: TTimer Enabled = False Interval = 10 OnTimer = Temps Left = 560 Top = 392 end end